Publication 5/Publication_05_19xx_High-Tech_de_Side_A.d64/der poem-printer

Commodore BASIC | 2023-02-26 | 2KB | 48 lines

10 dim v$(10),v3$(10),ad$(10),a$(10),s$(10),sr$(10,2),ar$(10,2)
11 rem
12 rem daten einlesen
13 rem
14 forg=1to10:readv$(g):next:forg=1to10:readv3$(g):next:forg=1to10:readad$(g)
15 next:forg=1to10:reada$(g):next:forg=1to10:reads$(g):next:forg=1to7
17 readsr$(g,1),sr$(g,2):next:forg=1to6:readar$(g,1),ar$(g,2):next:forg=1to7
18 readt$(g):next
19 rem
20 rem auslosung
21 rem
22 r0=int(rnd(1)*10)+1:r1=int(rnd(1)*10)+1:r2=int(rnd(1)*7)+1
23 r3=int(rnd(1)*10)+1:r4=int(rnd(1)*10)+1:r5=int(rnd(1)*10)+1
24 r6=int(rnd(1)*10)+1:r7=int(rnd(1)*6)+1:r8=int(rnd(1)*10)+1
25 r9=int(rnd(1)*10)+1
26 rem
27 rem ueberschrift
28 rem
29 poke53281,7:poke53280,2:print"[147]      publication-poem-printer 1.0      "
30 rem
31 rem das gedicht
32 rem
33 print"[144] "t$(1)" "v$(r0)" "t$(2)" "ad$(r1)" "sr$(r2,1)" ?"
34 print" "t$(3)"[160]"v$(r3)"[160]"t$(4)" "v$(r5)" "ar$(r7,1)","
35 print" "t$(5)" "a$(r5)" "v3$(r6)" "sr$(r2,2)","
36 print" "t$(6)" "t$(7)" "s$(r8)" "v$(r9)" "ar$(r7,2)" !"
37 rem
38 rem wortdaten
39 rem
40 data brodeln,wehen,fuehlen,weinen,lachen,lieben,saeuseln,wimmern,zittern
41 data beben,hasst,fragt,liebt,weint,sucht,findet,geht,kaut,malt,rettet,roten
42 data blauen,fernen,hohen,edlen,reinen,treuen,holden,freien,lauen,suess
43 data selig,edel,rein,sanft,heiter,stolz,ewig,hold,eifrig
44 data winde,sterne,tage,engel,monde,qualen,wolken,welten,wogen,herzen
45 data klagen,der magen,voegel,das segel,winde,die linde,ufer,der rufer
46 data tage,die plage,rosen,das kosen,schritte,die mitte,grau,lau,selig
47 data froehlich,weit,breit,heiter,weiter,treu,scheu,lang,bang,warum,die
48 data sie,und,aber,denn,die
49 rem
50 rem ende
51 rem
52 print"  [151]war das nicht schoen ([152]schnieeeef[151]) ?"
53 print" nochmal (j/n) ???"
54 geta$:ifa$=""then54
55 ifa$="j"then19
56 ifa$="n"thenprint" kunstbanause ![144]":end
57 goto54